.model small
.stack 100h
.data
	msg1 db "Iveskite teksta: $"
	msg2 db 10,13,"ivestu didziuju raidziu skaicius: $"
	ten dw 10 
.code
	mov ax, @data 
	mov ds, ax

	lea dx, msg1  
	mov ah, 09h   
	int 21h

	xor cx, cx 

readin:	
	mov ah, 01h 
	int 21h
	cmp al, 13  
	je endread  
	cmp al, 'A'
	jb readin    
	cmp al, 'Z' 
	jb iftrue      
        jmp readin     
    
iftrue:
	inc cx      
	jmp readin


endread:
	lea dx, msg2 
	mov ah, 09h  
	int 21h	

	mov ax, cx 
	xor cx, cx 

	
intout:
	xor dx, dx 
	div ten
	add dl, 30h
	push dx
	inc cx 
	cmp ax, 0
	ja intout

	
intwrite:
	pop dx 
	mov ah, 02h
	int 21h
	loop intwrite

	mov ax, 4C00h 
	int 21h
end
